home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / src-client / wl-tcpip.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-06  |  7.8 KB  |  224 lines
  1. /* -*-C-*-
  2. ********************************************************************************
  3. *
  4. * File:         wl-tcpip.c
  5. * RCS:          $Header: wl-tcpip.c,v 1.7 91/04/22 00:34:30 mayer Exp $
  6. * Description:  TCP INET CLIENT to send lisp expressions to WINTERP lisp-server.
  7. *               (this code derived from examples in HP manual 50952-9000
  8. *               "ARPA Services/300 User's Guide" (pp 4-32 to 4-36)).
  9. * Author:       Niels Mayer, HPLabs
  10. * Created:      Sat Jun 10 02:15:35 1989
  11. * Modified:     Sat Oct  5 22:44:01 1991 (Niels Mayer) mayer@hplnpm
  12. * Language:     C
  13. * Package:      N/A
  14. * Status:       X11r5 contrib tape release
  15. *
  16. * WINTERP Copyright 1989-1991 Hewlett-Packard Company (by Niels Mayer).
  17. * XLISP version 2.1, Copyright (c) 1989, by David Betz.
  18. *
  19. * Permission to use, copy, modify, distribute, and sell this software and its
  20. * documentation for any purpose is hereby granted without fee, provided that
  21. * the above copyright notice appear in all copies and that both that
  22. * copyright notice and this permission notice appear in supporting
  23. * documentation, and that the name of Hewlett-Packard and David Betz not be
  24. * used in advertising or publicity pertaining to distribution of the software
  25. * without specific, written prior permission.  Hewlett-Packard and David Betz
  26. * make no representations about the suitability of this software for any
  27. * purpose. It is provided "as is" without express or implied warranty.
  28. *
  29. * HEWLETT-PACKARD AND DAVID BETZ DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
  30. * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
  31. * IN NO EVENT SHALL HEWLETT-PACKARD NOR DAVID BETZ BE LIABLE FOR ANY SPECIAL,
  32. * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  33. * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  34. * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  35. * PERFORMANCE OF THIS SOFTWARE.
  36. *
  37. * See ./winterp/COPYRIGHT for information on contacting the authors.
  38. * 
  39. * Please send modifications, improvements and bugfixes to mayer@hplabs.hp.com
  40. * Post XLISP-specific questions/information to the newsgroup comp.lang.lisp.x
  41. *
  42. ********************************************************************************
  43. */
  44. static char rcs_identity[] = "@(#)$Header: wl-tcpip.c,v 1.7 91/04/22 00:34:30 mayer Exp $";
  45.  
  46. #include <stdio.h>
  47. #include <sys/types.h>
  48. #include <sys/socket.h>
  49. #include <netinet/in.h>
  50. #include <netdb.h>
  51. #include "../src-server/config.h" /* defines DEFAULT_INET_SERVICE_PORT, etc */
  52.  
  53. char *progname = NULL;
  54.  
  55.  
  56. /*******************************************************************************
  57.  * Send <message> to the server via socket <s>
  58.  *******************************************************************************/
  59. void Server_Send(s, message)
  60.      int s;
  61.      char *message;
  62. {
  63.   if (send(s, message, strlen(message), 0) < 0) {
  64.     perror(progname);
  65.     fprintf(stderr, "%s: unable to send() on INET Domain Socket.\n", progname);
  66.     exit(1);
  67.   }
  68. }
  69.  
  70.  
  71. /*******************************************************************************
  72.  * Establish a connection with server process, returning socket descriptor
  73.  * if successful.
  74. *******************************************************************************/
  75. int Server_Connect(serverhost, port)
  76.      char *serverhost;
  77.      u_short port;
  78. {
  79.   int s;            /* connected socket descriptor */
  80.   struct hostent *hp;        /* pointer to host info for remote host */
  81.   struct servent *sp;        /* service information pointer */
  82.   struct sockaddr_in peeraddr_in; /* for peer socket address */
  83.  
  84.   /* clear out address structures */
  85.   memset((char *)&peeraddr_in, 0, sizeof(struct sockaddr_in));
  86.   
  87.   /* Set up the peer address to which we will connect. */
  88.   peeraddr_in.sin_family = AF_INET;
  89.  
  90.   /*
  91.    * Get the host information for the hostname that the
  92.    * user passed in. If serverhost==NULL, then make a quicker connection
  93.    * by bypassing search in /etc/hosts and using loopback adrs directly.
  94.    */
  95.   if (serverhost) {
  96.     if ((hp = gethostbyname(serverhost)) == NULL) {
  97.       fprintf(stderr, "%s: unable to find INET server host %s in /etc/hosts or from YP.\n",
  98.           progname, serverhost);
  99.       exit(1);
  100.     }
  101.     peeraddr_in.sin_addr.s_addr = ((struct in_addr *)(hp->h_addr))->s_addr;
  102.   }
  103.   else {
  104.     peeraddr_in.sin_addr.s_addr = inet_addr(DEFAULT_INET_SERVICE_HOSTADDR); /* loopback */
  105.   }
  106.  
  107.   if (port == 0) {
  108.     /* get port number for service "widget_interp" */
  109.     if ((sp = getservbyname(DEFAULT_INET_SERVICE_NAME, "tcp")) == NULL) {    
  110.       fprintf(stderr, "%s: unable to find \"%s\" in /etc/services.\n",
  111.           progname,
  112.           DEFAULT_INET_SERVICE_NAME);
  113.       exit(1);
  114.     }
  115.     peeraddr_in.sin_port = sp->s_port;
  116.   }
  117.   else
  118.     peeraddr_in.sin_port = htons(port);
  119.   
  120.   /* Create the socket. */
  121.   if ((s = socket(AF_INET, SOCK_STREAM, 0))== -1) {
  122.     perror(progname);
  123.     fprintf(stderr, "%s: unable to create INET Domain Socket().\n", progname);
  124.     exit(1);
  125.   }
  126.  
  127.   /*
  128.    * Try to connect to the remote server at the address
  129.    * which was just built into peeraddr.
  130.    */
  131.   if (connect(s, &peeraddr_in, sizeof(struct sockaddr_in)) == -1) {
  132.     perror(progname);
  133.     fprintf(stderr, "%s: unable to connect() to remote via INET.\n", progname);
  134.     exit(1);
  135.   }
  136.  
  137.   return(s);
  138. }
  139.  
  140.  
  141. /******************************************************************************
  142.  * Server_Disconnect -- shutdown the connection for further sends. This causes
  143.  * the server to receive an EOF condition after it has received all data from
  144.  * Server_Send().
  145. ******************************************************************************/
  146. void Server_Disconnect(s)
  147.      int s;
  148. {
  149.   char buffer[200];
  150.   int length;
  151.  
  152.   if (shutdown(s, 1) == -1) {
  153.     perror(progname);
  154.     fprintf(stderr, "%s: unable to shutdown() INET Domain Socket.\n", progname);
  155.     exit(1);
  156.   }
  157. }
  158.  
  159.  
  160. /******************************************************************************
  161.  *
  162.  ******************************************************************************/
  163. main(argc, argv)
  164.      int argc;
  165.      char *argv[];
  166. {
  167.   extern int getopt();        /* proc to get option letter from argv */
  168.   extern char* optarg;        /* arg string being pointed to by getopt() */
  169.   extern int optind;        /* index into argv set by getopt() */
  170.   int opt;            /* option argument */
  171.   char hostname[200];        /* for holding server host name */
  172.   int hostname_given = 0;    /* true if hostname was spec'd by user */
  173.   int s;            /* connected socket desriptor */
  174.   u_short port = 0;        /* port number */
  175.   char* portstr;
  176.   char* hoststr;
  177.  
  178.   progname = argv[0];
  179.  
  180.   while ((opt = getopt(argc, argv, "h:p:")) != EOF)
  181.     switch (opt) {
  182.     case 'h':
  183.       strcpy(hostname, optarg);
  184.       hostname_given = 1;
  185.       break;
  186.     case 'p':
  187.       port = atoi(optarg);
  188.       break;
  189.     case '?':
  190.       fprintf(stderr, "usage: %s [-h hostname] [-p port] [sexpr]\n", progname);
  191.       exit (1);
  192.       break;
  193.     }
  194.  
  195.   if (port == 0) {
  196.     if ((portstr = (char *) getenv(DEFAULT_INET_PORT_ENVVAR)) != NULL) /* DEFAULT_INET_PORT_ENVVAR in "../src-server/config.h" */
  197.       port = (u_short) atoi(portstr);
  198.     else
  199.       port = DEFAULT_INET_SERVICE_PORT; /* default port # for winterp server */
  200.   }
  201.  
  202.   if (hostname_given)
  203.     s = Server_Connect(hostname, port); /* a remote connection w/ host spec'd on command line */
  204.   else {
  205.     if ((hoststr = (char *) getenv(DEFAULT_INET_HOSTADDR_ENVVAR)) != NULL) /* DEFAULT_INET_HOSTADDR_ENVVAR in "../src-server/config.h" */
  206.       s = Server_Connect(hoststr, port); /* use hostname given in environment var */
  207.     else
  208.       s = Server_Connect(NULL, port); /* a local connection -- use loopback */
  209.   }
  210.  
  211.   /*
  212.    * note that due to a bug/feature of winterp, we must send it only
  213.    * one sexp. Here, in the case that multiple args get passed, we also
  214.    * want to ensure that they're whitespace separated for tokenization
  215.    */
  216.   for (; optind < argc; optind++) {
  217.     Server_Send(s, argv[optind]);
  218.     Server_Send(s, " ");
  219.   }
  220.  
  221.   Server_Disconnect(s);
  222.   exit(0);
  223. }
  224.